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RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ZTITLE ‘Skips <comma-separator>s' 


MODULE SKPSEP ( 
IDENT = 'v04-000' 


*BLISS32C 
ADDRESSING ~MODE CEXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
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BEGIN 
' 
eres Sem iek whee Hea toe DUR cat eee Toe 
if . 
is COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
it DIGITAL EQUIPMENT. CORPORATIONS MAYNARD. MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. . 
: *® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
i ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE + 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTUARE OR ANY. OTHER 
it COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i TRANSFERRED. : 
® 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. ® 
* 
® 
® 
* 
® 
® 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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et EEE NTE GEE FL acter SEE AES Be ARN oe oR 
Ose les 

ote FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

O38 ABSTRACT: Skips a <comma-separator> (i.e., ‘spaces ‘’,"' spaces’) 

O36 7 ENVIRONMENT: Transportable 

oh AUTHOR: R.W. Friday CREATION DATE: January, 1979 
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RSBTTL "Revision History' 
MODIFIED By: 
003 REMO0003 Ray Marshall 07-Mar-1983 
: 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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RSBTTL "Module Level Declarations’ 
i TABLE OF CONTENTS: 


i 
i 

INCLUDE FILES: 

RY ‘NXPORT:XPORT'; 
RE '"REQ:RNODEF '; 


SAPLUS XTHE 
REQ:DPLLIB' ; 


RY "REQ:DSRLIB’; 


ey 4 —> 


{EXTERNAL REFERENCES: 


EXTERNAL 
KH 


' XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 
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ZSBTTL "SKPSEP -=-' 

GLOBAL ROUTINE skpsep (ira) = 
+ 

FUNCTIONAL DESCRIPTION: 


Skips over a comma surrounded by any number of spaces and tabs 
until neither is found. 


FORMAL PARAMETERS: 
IRA is the string that is to be scanned. 

IMPLICIT INPUTS: None 

IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns TRUE if a comma was found, else FALSE. 
SIDE EFFECTS: None 


IAPOPOIPOPONINONUNONIN) 3 2 3 SS tO “> 


NOUS WN OOONOU EWN 0 ODNOAU EWN SO ODONOUS WR OOOO 


result; 


ira : REF fixed_string; 
result=false; ‘Assume no comma. 


'Skip spaces and tabs before the comma. 
WHILE (.khar EQL %C‘ ' 'space 
OR (.khar EQL 20°011') 'tab 


kens (); 


'Skip the comma 
IF .khar EQL 2C°," THEN 
BEGIN 


kens (); 

result=true; 

ND; 

'Skip spaces and tabs after the comma. 


WHILE (.khar EQL 2C' 
OR (.khar EQL 20'011") 


kens (); 


‘space 
'tab 


PUPP UI BS BS BS BBE EE EWI III 


'Return the result of the scan. 
RETURN .result 
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BEGIN 
LOCAL 
MAP 
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an 


7 
1 
5 3 0262 1 END; 'End of SKPSEP 
-TITLE SKPSEP stipe <comma=separator>s 
-IDENT \V04-000\ 


~-EXTRN KHAR, RINTES 
~PSECT $CODES,NOWRT,2 


; Routine Size: 121 bytes, Routine Base: $CODE$ + 0000 


SKPSEP Skips <comma-separator>s 1b-s¢ -1984 7:48:09 AX-11 Bliss-32 V4.0-74 P 
9042000 SKPSEP oo 1 =300 7138 et BE RUNOFF eSRETSKESEP OL f0f segs (3 
000C 000 -ENTRY SKPSEP, Save R2,R3 ; 020 
53 000000006 gE i O98 MOVAB KHAR, R : _ 
2 D CLRL RESULT : 0238 
51 04 AC 00 008 MOVL IRA R1 + 0244 
50 OC Al 9E 0000F MOVAB 12(R1), RO : 
20 63 01 00013 1$ CMPL = KHAR, & + 0241 
03 13 0016 BEQL «6-2 : 
09 63 D1 0001 CMPL ss KHAR, #9 + 0242 
18 if 001B BNEQ 4 : 
60 65 0001D 28 TSTL (RO) + 0244 
09 14 0001F BGTR $ : 
63 006 BF 9A 00021 MOVZBL M#RINTES, KHAR : 
60 01 CE 00025 MNEGL #1, (ROS : 
E9 11 00028 BRB 1$ F 
63 04 81 9A 0002A 3$ MOVZBL @4(R1), KHAR : 
04 «Al 6 0002E INCL  4(R1) : 
60 D 00 1 DECL (RO) : 
DE 11 00033 BRB 1$ : 
2c 63 D1 00035 4$ CMPL  KHAR, #44 : 0247 
19 if 90038 BNEQ 7$ : 
60 D5 0003A TSTL (RO) : 0249 
09 14 0005¢ BGTR 5 ; 
63 00G F 9A 000 MOVZBL #RINTES, KHAR 3 
60 01 CE 0004 MNEGL #1, (ROS ; 
09 11 0004 BRB : 
63 04 B81 9A 00047 S$: MOVZBL @4(R1), KHAR : 
04 Al D6 00048 INCL  4(R1) : 
60 D7 0004 DECL (RO) F 
52 01 DO 00050 6s: MOVL = #1 RESULT : 0250 
2 63 D1 09 7$: CMPL = KHAR, # > 0254 
3 13 00 6 BEQL «6s BS F 
09 63 D1 000 CMPL =sKHAR, #9 : 0255 
18 12 00058 BNEG  10$ ; 
D 5D 8$ TSTL (RO) : 0257 
9 1 SF BGTR 9$ ; 
63 006 8F 9A 00061 MOVZBL M#RINTES, KHAR ; 
60 1 cE 65 MNEGL #1, (ROS F 
£9 1 68 BRB 7$ : 
63 04 B1 9A 0006A 9S: MOVZBL @4(R1), KHAR ; 
4 Al 6 $ INCL 4(R1) : 
60 D DECL (RO) : 
50 BS 0d GOOrs 10s: Rov. RESULT. RO : 0260 
04 0007 RET ; $588 


"mamma mcmama aca acerca emma meee eee ean ee ee =e | rcocott 
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: 139 0864 1 END ‘End of modul 
: 138 65 0 ELUDOM past opt 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 121 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ete rr ee RS aot al Symbols -------- Pages Processing 

: File Total lioded Percent Mapped Time 

: _$255$DUA28: :ESYSL IB]XPORT .L32;1 590 0 0 252 00:00.1 

: 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 9 0 Bb 00:00.3 

F COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:SKPSEP/OBJ=OBJ$:SKPSEP MSRC$:SKPSEP/UPDATE=(ENHS: SKPSEP) 


ize: 121 soge + 0 data bytes 


; Lexemes/CPU-Min: 
: gonety Used: 51 pages 
; Compilation sompinil 
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